Sub OD()
' OCULTAR HOJA D Macro
Sheets("D").Visible = False
    Sheets("D").Select
End Sub
Sub OI()
' OCULTAR HOJA I Macro
Sheets("I").Visible = False
    Sheets("I").Select
End Sub
Sub OE()
' OCULTAR HOJA E Macro
Sheets("E").Visible = False
    Sheets("E").Select
End Sub
Sub OND()
' OCULTAR HOJA ND Macro
Sheets("ND").Visible = False
    Sheets("ND").Select
End Sub
Sub ONC()
' OCULTAR HOJA NC Macro
Sheets("NC").Visible = False
    Sheets("NC").Select
End Sub
Sub ODIARIO()
' OCULTAR HOJA DIARIO Macro
Sheets("DIARIO").Visible = False
    Sheets("MENU").Select
End Sub
Sub OMAYOR()
' OCULTAR HOJA MAYOR Macro
Sheets("MAYOR").Visible = False
    Sheets("MENU").Select
End Sub
Sub OBALANCE()
' OCULATAR HOJA BALANCE Macro
Sheets("BALANCE").Visible = False
    Sheets("MENU").Select
End Sub
Sub OMENU()
' OCULTAR HOJA MENU Macro
Sheets("MENU").Visible = False
End Sub
Sub OGENERAL()
' OCULATAR HOJA GENERAL Macro
Sheets("GENERAL").Visible = False
    Sheets("MENU").Select
End Sub
Sub ORESULTADO()
' OCULTAR HOJA RESULTADO Macro
Sheets("RESULTADO").Visible = False
    Sheets("MENU").Select
End Sub
Sub ocultaCinta()
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
ActiveWindow.DisplayHorizontalScrollBar = False     'oculta la barra horizon
ActiveWindow.DisplayVerticalScrollBar = False         'oculta la barra vertical

End Sub
Sub MuestraCinta()
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")

End Sub
